0print"{clear}{white}{down}"spc(14)"8{space}seconds{.*3}":fr=53280:pokefr,.:pokefr+1,.:sp=12800:ford=.to191:pokesp+d,.:next:dima$(15):forr=.to4:forl=.to2:reads:pokesp+r*3+l,s:pokesp+(9-r)*3+l,s:nextl:nextr:dimb$(22):forr=.to29:reads,t:pokesp+128+r,s:pokesp+64+r,t:nextr:ford=1to15:reada$(d):next:form=.to21:readg:l=len(a$(g))
1b$(m)=a$(g):forz=1tol-1:b$(m)=b$(m)+mid$(a$(g),l-z,1):next:nextm:w=18:x=40:y=49:n=128:qw=53265:cl=qw+13:sc=55296:ch=1024:f=255:p=698:q=95:t=2040:v=202:c=1720:k=231:up=103:sn=54272:pokecl,.:dimb(81):forr=.to80:reads:b(r)=s:nextr:data30,,,127,128,,126,,,248,,,240,,,30,63
2mv=.:pokefr,.:b=56320:xp=53248:yp=xp+1:xm=xp+2:ym=xp+3:wx=2:print"{home}"spc(12)"{white}1up{black}"ti$ti$:form=.to21:printtab(9)b$(m):nextm:printtab(11)"{yellow}{Q}{space}{Q}{white}{space*3}hi";u"{black}"ti$"{white}":pokexp+39,7:i=167:j=185:e=i:my=137:pokexp,i:pokeyp,j:pokexp+40,3:poket,200:poket+1,201:pokexm,e:pokeym,my:pokeqw+4,3:c$="{0*6}":ti$=c$:goto8
3pokeym,my:pokexm,e:pokecl,.:h=int(ti/ch+pt/(c*1.8)+0.5):e=e-sgn(e-i)*h:my=my-sgn(my-j)*h:cr=peek(cl)and3:a=f-peek(b):ifa<>nthenwx=(aand8)/4-(aand4)/2:mv=mv+abs(wx):wy=.:ifwx=.thenwy=(aand2)-(aand1)*2:data,,,,127,127,128,128,,,127,204,128,192,,,255,238,192,192,,,255,204,192,192,
4poket,200:forl1=.to1:p2=p+wx/2:bx=(f-peek(ch+p2))and1:i=i+bx*wx*2:p3=p+(wy/2)*x:by=(f-peek(ch+p3))and1:j=j+by*wy*2:pokexp,i:pokeyp,j:next:ifti>400thenpokexp+x,3:data,255,255,192,192,,,255,255,192,192,,,127,255,128,192,,,127,255,128,192,,,30,204,,192,,,"{blue}{Q*10}" 
5poket,v:tl=sgn(q-i):tr=sgn(i-r):i=i*tr*tl+k+tl*k+up+tr*up:p=(i-w)/8+5*(j-y):poke198,0:if(peek(sc+p))and8thenpokesn+24,15:pokesn+24,.:pokesc+p,.:pt=pt+10:ifpeek(ch+p)=42thenpt=pt+x:pokexp+x,6:ti$=c$:data"{Q}{blue}{pink}{.*8}{pink}{blue}{Q}"
6u=(u+u*sgn(u-pt)+pt+pt*sgn(pt-u))/2:print"{home}"spc(w)pt:g=(int(pt/c)=pt/c)andmv>2:ifcr>.orgthenl=sgn(cr):s=(peek(xp+x)and4)/4:rf=s*l-g:pt=pt*int(rf/2+.5):pokefr,2-2*rf:wait198-36*rf,1:l=(g+1)*(l+s):wy=wy*s:onlgoto2,9:fors=.to3:pokeqw,.:form=.tov:next:pokeqw,27:form=.tov:next:nexts:wy=.:goto2
7goto3:data"{Q}{blue}{pink}.{pink}{blue}{Q*2}{blue}{pink}.{pink}{blue}{Q*3}{blue}{pink}.{pink}{blue}{Q}","{Q}{blue}{pink}{.*9}","{Q}{blue}{pink}.{pink}{blue}{Q*2}{blue}{pink}.{pink}{blue}{Q}{blue}{pink}.{pink}{blue}{Q*3}","{Q}{blue}{pink}{.*4}{pink}{blue}{Q}{blue}{pink}{.*3}{pink}{blue}{Q}","{Q*4}{blue}{pink}.{pink}{blue}{Q*3}{space}{Q}","{space*3}{Q}{blue}{pink}.{pink}{blue}{Q}{space*4}","{Q*4}{blue}{pink}.{pink}{blue}{Q}{space}{Q*3}","{space*4}{blue}{pink}.{pink}{blue}{space*2}{Q}{space*2}","{Q}{blue}{pink}{.*8}{pink}{blue}{Q}","{Q}{blue}{pink}*.{pink}{blue}{Q}{blue}{pink}{.*5}{pink}{black}{space}","{Q*2}{blue}{pink}.{pink}{blue}{Q}{blue}{pink}.{pink}{blue}{Q}{blue}{pink}.{pink}{blue}{Q*3}","{Q}{blue}{pink}.{pink}{blue}{Q*6}{blue}{pink}.{pink}{blue}{Q}"
8r=239:pokesn+5,8:pokesn+6,60:pokesn+24,15-15*sgn(pt):forz=.to26-26*sgn(pt):pokesn+1,b(3*z):pokesn,b(3*z+1):pokesn+4,33:ford=1tob(3*z+2)*15:next:pokesn+4,32:ford=1to3:next:nextz:goto3:data"{Q}{blue}{pink}*{pink}{blue}{Q*2}{blue}{pink}.{pink}{blue}{Q*3}{blue}{pink}.{pink}{blue}{Q}",1,2,15,3,4,5,6,7,8,9,10,9,8,9,11,3,12,13,6,14,4,1,8,97,4,15,210,4,11,218,5
9e=167:my=137:ti$=c$:goto3:data9,247,4,15,210,9,9,247,8,8,97,4,16,195,4,12,143,4,10,143,4,16,195,9,10,143,9,8,97,4,15,210,4,11,218,5,9,247,4,15,210,9,9,247,8,9,247,2,10,143,2,11,48,5,11,48,2,11,218,2,12,143,5,12,143,2,14,24,2,15,210,5